package Stack::SMC8612XL3;

use strict;

use lib '..';

#use base qw (NetworkDB);

#__PACKAGE__->set_up_table('stacks');
#__PACKAGE__->has_many(switches => 'Switch');
#__PACKAGE__->has_many(uplinks => 'Uplink');

use Data::Dumper;
use Utils;
use NetAddr::IP;

use Conf; my $conf = Conf->show;

# kvoli mnohym podobnostiam je tato trieda odvodena od SMC6824M.pm:
use base qw (Stack::SMC6824M);
# metody, ktore sa tu nechadzaju, sa nachadzaju v rodicovskej triede

my $time_before;		# kvoli pocitaniu doby trvania jednotlivych operacii

sub initialize {
	# NEZMAZAT!!! inak bude deep recursion
}

sub get_serial_number {
        my $self = shift;
        my $OID = "mib-2.47.1.1.1.1.11.101";
        return $self->SNMPget($OID);
}


sub switch_internal_port_count {
        my $self = shift;
        return 12;
}

sub main_uplink {       # NOT IMPLEMENTED!
        my $self = shift;
#       my $unit = ;
#       my $port = ;
#       return ($unit, $port);
}

sub CLI_set_RADIUS {	# nastavi RADIUS secret key a max. 5 RADIUS serverov
	my $self = shift;
	my ($key, $host) = @_;
	return "radius-server key $key\nradius-server host $host\n";
}

1;
